screen 0,310,250
cls 1
pos 20,10

cur_year =gettime(0)
cur_month=gettime(1)
cur_day  =gettime(3)
tmp_data_day=""+strf("%04dN",cur_year)+" "+strf("%02d",cur_month)+" "+strf("%02d",cur_day)
var4input_data_day=""
var4input_data_day=tmp_data_day

cur_hour=gettime(4)
cur_min =gettime(5)
cur_sec =gettime(6)

tmp_data_hour=""+strf("%02d",cur_hour)+" "+strf("%02d",cur_min)+" "+strf("%02db",cur_sec)
var4input_data_hour=""
var4input_data_hour=tmp_data_hour

	font "",20
	objmode 2
	
	font "",30:input var4input_data_day,270,40
	ID4input_data_day=stat:font "",20

	pos 20,60
	font "",30:input var4input_data_hour,270,40
	ID4input_data_hour=stat:font "",20

	pos 20,110
	objsize 270,40
	font "",30
	button "START",*l_time_start
	button "STOP",*l_time_stop
	button "MAIN",*l_exec_A
	stop
*l_time_start
	while 1
	await 200
	
cur_year =gettime(0)
cur_month=gettime(1)
cur_day  =gettime(3)
tmp_data_day=""+strf("%04dN",cur_year)+" "+strf("%02d",cur_month)+" "+strf("%02d",cur_day)
var4input_data_day=tmp_data_day
objprm ID4input_data_day,var4input_data_day

cur_hour=gettime(4)
cur_min =gettime(5)
cur_sec =gettime(6)

tmp_data_hour=""+strf("%02d",cur_hour)+" "+strf("%02d",cur_min)+" "+strf("%02db",cur_sec)
var4input_data_hour=tmp_data_hour
objprm ID4input_data_hour,var4input_data_hour

	wend
	stop
*l_time_stop
	stop
	
*l_exec_A
	exec "Ys_many_Timmer.exe"
	stop